home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / scbench.arc / SCRAND.C < prev    next >
Encoding:
Text File  |  1980-01-01  |  454 b   |  20 lines
  1. /*
  2. ** 8088/8086 version
  3. ** rand(seed) - Generate a random number using a linear
  4. ** congruence generator.  Seed is the initial seed for
  5. ** the generator.  On subsequent calls to rand() seed should
  6. ** be set to the value of the previeous random number. i.e.:
  7. ** newrand = rand(oldrand);
  8. */
  9. rand(seed) int seed; {
  10. #asm
  11.     MOV    BP,SP
  12.     MOV    AX,2[BP]    ;Get seed
  13.     MOV    BX,58653
  14.     MUL    BX
  15.     ADD    AX,13849
  16.     MOV    BX,AX
  17.     XOR    CX,CX        ;For Small-C
  18. #endasm
  19. }
  20.